/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Techniques / BinTreeDemo#1

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 05 00 01 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 01 00 00 |AAAA..??|??......|
|00000020| 07 41 70 70 4e 61 6d 65 | 80 80 80 01 80 80 80 01 |.AppName|........|
|00000030| 01 00 00 00 00 00 00 00 | 06 69 63 73 23 80 01 01 |........|.ics#...|
|00000040| 80 06 60 08 10 08 90 08 | 10 0c b0 33 4c 20 84 22 |..`.....|...3L ."|
|00000050| 14 60 86 a2 17 99 9f 66 | 7e 18 78 06 e0 01 80 01 |.`.....f|~.x.....|
|00000060| 80 07 e0 0f f0 0f f0 0f | f0 0f f0 3f fc 3f fc 3f |........|...?.?.?|
|00000070| fc 7f fe ff ff ff ff 7f | fe 1f f8 07 e0 01 80 49 |........|.......I|
|00000080| 43 4e 23 80 04 00 01 80 | 00 00 06 60 00 00 18 18 |CN#.....|...`....|
|00000090| 00 00 60 06 00 00 48 0a | 00 00 42 22 00 00 40 8a |..`...H.|..B"..@.|
|000000a0| 00 00 40 22 00 00 40 8a | 00 00 40 22 00 00 40 8a |..@"..@.|..@"..@.|
|000000b0| 00 00 60 26 00 01 98 99 | 80 06 06 60 60 18 01 80 |..`&....|...``...|
|000000c0| 18 12 02 20 28 10 88 88 | 88 10 22 02 28 30 08 80 |... (...|..".(0..|
|000000d0| 8c 70 22 02 2a 90 08 80 | 8d b0 22 02 2b 98 09 80 |.p".*...|..".+...|
|000000e0| 99 a6 26 62 67 69 98 19 | 9e 1a 60 06 78 06 80 01 |..&bgi..|..`.x...|
|000000f0| e0 01 a0 07 80 00 68 1e | 00 00 1a 78 00 00 06 e0 |......h.|...x....|
|00000100| 00 00 01 80 00 00 01 80 | 00 00 07 e0 00 00 1f f8 |........|........|
|00000110| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000120| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000130| 00 00 7f fe 00 01 ff ff | 80 07 ff ff e0 1f ff ff |........|........|
|00000140| f8 1f ff ff f8 1f ff ff | f8 1f ff ff f8 3f ff ff |........|.....?..|
|00000150| fc 7f ff ff fe ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000160| ff ff ff ff ff 7f ff ff | fe 1f ff ff f8 07 ff ff |........|........|
|00000170| e0 01 ff ff 80 00 7f fe | 00 00 1f f8 00 00 07 e0 |........|........|
|00000180| 00 00 01 80 00 69 63 73 | 34 80 02 00 00 00 0f f0 |.....ics|4.......|
|00000190| 00 00 00 00 00 0f f8 8f | f0 00 00 00 00 f8 88 88 |........|........|
|000001a0| 9f 00 00 00 00 f8 88 99 | 9f 00 00 00 00 f8 88 99 |........|........|
|000001b0| 9f 00 00 00 00 f8 88 99 | 9f 00 00 00 ff cc 88 99 |........|........|
|000001c0| 11 ff 00 00 fc cc cc 11 | 11 1f 00 00 fc c3 73 21 |........|......s!|
|000001d0| 22 2f 00 0f fc c7 37 12 | 12 2f f0 fc fc c3 73 21 |"/....7.|./....s!|
|000001e0| 22 2f df f0 cf f7 3f f2 | 1f fd df 0f f0 cf fc cf |"/....?.|........|
|000001f0| fd df f0 00 0f f0 cc cd | df f0 00 00 00 0f f0 df |........|........|
|00000200| f0 00 00 00 00 00 0f f0 | 00 00 00 69 63 73 38 80 |........|...ics8.|
|00000210| 04 00 00 00 00 00 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 ff ff | e1 e1 ff ff 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 ff e3 e1 | e1 e1 e1 e5 ff 00 00 00 |........|........|
|00000240| 00 00 00 00 00 ff e3 e3 | e3 e5 e5 e5 ff 00 00 00 |........|........|
|00000250| 00 00 00 00 00 ff e3 e3 | e3 e5 e5 e5 ff 00 00 00 |........|........|
|00000260| 00 00 00 00 00 ff e3 e3 | e3 e5 e5 e5 ff 00 00 00 |........|........|
|00000270| 00 00 00 ff ff 2a 2a e3 | e3 e5 e5 0b 0b ff ff 00 |.....**.|........|
|00000280| 00 00 00 ff 2a 2a 2a 2a | 2a 0b 0b 0b 0b 0b ff 00 |....****|*.......|
|00000290| 00 00 00 ff 54 54 7f 7f | 7f 11 11 11 17 17 ff 00 |....TT..|........|
|000002a0| 00 00 ff ff 54 54 7f 7f | 7f 11 11 11 17 17 ff ff |....TT..|........|
|000002b0| 00 ff f6 ff 54 54 7f 7f | 7f 11 11 11 17 17 ff f9 |....TT..|........|
|000002c0| ff ff f6 f6 ff ff 7f 7f | ff ff 11 11 ff ff f9 f9 |........|........|
|000002d0| ff 00 ff ff f6 f6 ff ff | f7 f7 ff ff f9 f9 ff ff |........|........|
|000002e0| 00 00 00 00 ff ff f6 f6 | f7 f7 f9 f9 ff ff 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 ff ff | f6 f9 ff ff 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000310| 00 69 63 6c 34 80 08 00 | 00 00 00 00 00 00 0f f0 |.icl4...|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0f f8 8f |........|........|
|00000330| f0 00 00 00 00 00 00 00 | 00 00 00 00 0f f8 88 88 |........|........|
|00000340| 8f f0 00 00 00 00 00 00 | 00 00 00 0f f8 88 88 88 |........|........|
|00000350| 88 8f f0 00 00 00 00 00 | 00 00 00 0f 88 08 88 88 |........|........|
|00000360| 88 89 f0 00 00 00 00 00 | 00 00 00 0f 88 88 08 88 |........|........|
|00000370| 89 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 09 |........|........|
|00000380| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 99 |........|........|
|00000390| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 89 |........|........|
|000003a0| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 99 |........|........|
|000003b0| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 89 |........|........|
|000003c0| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 99 |........|........|
|000003d0| 99 99 f0 00 00 00 00 00 | 00 00 0f fc c8 88 88 89 |........|........|
|000003e0| 99 91 1f f0 00 00 00 00 | 00 0f fc cc cc c8 88 99 |........|........|
|000003f0| 91 11 11 1f f0 00 00 00 | 0f fc cc cc cc cc cc 71 |........|.......q|
|00000400| 11 11 11 11 1f f0 00 00 | 0f cc 0c cc cc cc 37 22 |........|......7"|
|00000410| 01 11 11 11 12 f0 00 00 | 0f cc cc 0c cc 73 73 71 |........|.....ssq|
|00000420| 21 01 11 12 22 f0 00 00 | 0f cc cc cc 07 37 37 22 |!..."...|.....77"|
|00000430| 12 12 02 22 22 f0 00 00 | ff cc cc cc 73 73 73 71 |...""...|....sssq|
|00000440| 21 21 22 22 22 ff 00 0f | 0f cc cc cc c7 37 37 22 |!!"""...|.....77"|
|00000450| 12 12 12 22 22 fd f0 f0 | cf cc cc cc 73 73 73 71 |...""...|....sssq|
|00000460| 21 21 22 22 22 fc df fc | cf cc cc cc c7 37 37 22 |!!"""...|.....77"|
|00000470| 12 12 12 22 22 fc cf fc | 0f fc cc cc 73 73 7f f1 |...""...|....ss..|
|00000480| 21 21 22 22 2f fc df fc | cc 0f fc cc c7 3f fd df |!!""/...|.....?..|
|00000490| f2 12 12 2f fc dd df 0f | fc cc 0f fc 7f fd dd dc |.../....|........|
|000004a0| cf f1 2f fc dd df f0 00 | 0f fc cc 0f fd dd cc cc |../.....|........|
|000004b0| cc cf fc dd df f0 00 00 | 00 0f fc cc 00 cc cc cc |........|........|
|000004c0| cc cc dd df f0 00 00 00 | 00 00 0f fc cc 00 cc cc |........|........|
|000004d0| cc dd df f0 00 00 00 00 | 00 00 00 0f fc cc 00 cc |........|........|
|000004e0| dd df f0 00 00 00 00 00 | 00 00 00 00 0f fc cc dd |........|........|
|000004f0| df f0 00 00 00 00 00 00 | 00 00 00 00 00 0f fc df |........|........|
|00000500| f0 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0f f0 |........|........|
|00000510| 00 00 00 00 00 00 00 69 | 63 6c 38 80 10 00 00 00 |.......i|cl8.....|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 ff ff e1 e1 ff ff |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | ff ff e1 e1 e1 e1 e1 e1 |........|........|
|00000570| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 ff ff | e1 e1 e1 e1 e1 e1 e1 e1 |........|........|
|00000590| e1 e1 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 ff e3 | e3 00 e1 e1 e1 e1 e1 e1 |........|........|
|000005b0| e1 e3 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 ff e3 | e3 e3 e3 00 e1 e1 e1 e3 |........|........|
|000005d0| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 00 e5 e5 |........|........|
|000005f0| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000610| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e3 e5 e5 |........|........|
|00000630| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000650| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e3 e5 e5 |........|........|
|00000670| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000690| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 ff ff 2a 2a | e3 e3 e3 e3 e3 e3 e5 e5 |......**|........|
|000006b0| e5 e5 0b 0b ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 ff ff 2a 2a 2a 2a | 2a 2a e3 e3 e3 e5 e5 e5 |....****|**......|
|000006d0| 0b 0b 0b 0b 0b 0b ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| ff ff 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 54 0b 0b |..******|*****T..|
|000006f0| 0b 0b 0b 0b 0b 0b 0b 0b | ff ff 00 00 00 00 00 00 |........|........|
|00000700| ff 54 54 00 2a 2a 2a 2a | 2a 2a 2a 54 7f 11 11 00 |.TT.****|***T....|
|00000710| 0b 0b 0b 0b 0b 0b 0b 11 | 17 ff 00 00 00 00 00 00 |........|........|
|00000720| ff 54 54 54 54 00 2a 2a | 2a 54 7f 7f 7f 7f 11 11 |.TTTT.**|*T......|
|00000730| 11 00 0b 0b 0b 11 17 17 | 17 ff 00 00 00 00 00 00 |........|........|
|00000740| ff 54 54 54 54 54 54 00 | 7f 7f 7f 7f 7f 11 11 11 |.TTTTTT.|........|
|00000750| 11 11 11 00 17 17 17 17 | 17 ff 00 00 00 00 00 ff |........|........|
|00000760| ff 54 54 54 54 54 54 7f | 7f 7f 7f 7f 7f 7f 11 11 |.TTTTTT.|........|
|00000770| 11 11 11 17 17 17 17 17 | 17 ff ff 00 00 00 ff 00 |........|........|
|00000780| ff 54 54 54 54 54 54 54 | 7f 7f 7f 7f 7f 11 11 11 |.TTTTTTT|........|
|00000790| 11 11 11 11 17 17 17 17 | 17 ff f9 ff 00 ff 00 f7 |........|........|
|000007a0| ff 54 54 54 54 54 54 7f | 7f 7f 7f 7f 7f 7f 11 11 |.TTTTTT.|........|
|000007b0| 11 11 11 17 17 17 17 17 | 17 ff f7 f9 ff ff f7 f7 |........|........|
|000007c0| ff 54 54 54 54 54 54 54 | 7f 7f 7f 7f 7f 11 11 11 |.TTTTTTT|........|
|000007d0| 11 11 11 11 17 17 17 17 | 17 ff f7 f7 ff ff f7 00 |........|........|
|000007e0| ff ff 54 54 54 54 54 7f | 7f 7f 7f 7f ff ff 11 11 |..TTTTT.|........|
|000007f0| 11 11 11 17 17 17 17 17 | ff ff f7 f9 ff ff f7 f7 |........|........|
|00000800| f7 00 ff ff 54 54 54 54 | 7f 7f ff ff f9 f9 ff ff |....TTTT|........|
|00000810| 11 11 11 11 17 17 ff ff | f7 f9 f9 f9 ff 00 ff ff |........|........|
|00000820| f7 f7 f7 00 ff ff 54 7f | ff ff f9 f9 f9 f9 f7 f6 |......T.|........|
|00000830| ff ff 11 17 ff ff f7 f9 | f9 f9 ff ff 00 00 00 00 |........|........|
|00000840| ff ff f7 f7 f7 00 ff ff | f9 f9 f9 f7 f6 f6 f6 f6 |........|........|
|00000850| f6 f6 ff ff f7 f9 f9 f9 | ff ff 00 00 00 00 00 00 |........|........|
|00000860| 00 00 ff ff f7 f7 f7 00 | 00 f6 f6 f6 f6 f6 f6 f6 |........|........|
|00000870| f6 f7 f7 f9 f9 f9 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 ff ff f7 f7 | f7 00 00 f6 f6 f6 f6 f7 |........|........|
|00000890| f7 f9 f9 f9 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 ff ff | f7 f7 f7 00 00 f7 f7 f9 |........|........|
|000008b0| f9 f9 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | ff ff f7 f7 f7 f9 f9 f9 |........|........|
|000008d0| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 ff ff f7 f9 ff ff |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 04 74 |........|.......t|
|00000920| 65 78 74 04 52 2a 63 68 | 04 54 45 58 54 00 00 01 |ext.R*ch|.TEXT...|
|00000930| 41 04 56 69 65 77 07 57 | 69 6e 64 6f 77 31 04 a4 |A.View.W|indow1..|
|00000940| 01 a4 01 12 04 4e 61 6d | 65 07 57 69 6e 64 6f 77 |.....Nam|e.Window|
|00000950| 31 05 46 72 61 6d 65 01 | 30 0c 48 61 73 42 61 63 |1.Frame.|0.HasBac|
|00000960| 6b 43 6f 6c 6f 72 05 46 | 61 6c 73 65 09 42 61 63 |kColor.F|alse.Bac|
|00000970| 6b 43 6f 6c 6f 72 08 31 | 36 37 37 37 32 31 35 08 |kColor.1|6777215.|
|00000980| 42 61 63 6b 64 72 6f 70 | 01 30 05 54 69 74 6c 65 |Backdrop|.0.Title|
|00000990| 08 55 6e 74 69 74 6c 65 | 64 07 56 69 73 69 62 6c |.Untitle|d.Visibl|
|000009a0| 65 04 54 72 75 65 08 43 | 6c 6f 73 65 42 6f 78 04 |e.True.C|loseBox.|
|000009b0| 54 72 75 65 08 47 72 6f | 77 49 63 6f 6e 05 46 61 |True.Gro|wIcon.Fa|
|000009c0| 6c 73 65 08 5a 6f 6f 6d | 49 63 6f 6e 05 46 61 6c |lse.Zoom|Icon.Fal|
|000009d0| 73 65 0b 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 09 |se.Ballo|onHelp..|
|000009e0| 50 6c 61 63 65 6d 65 6e | 74 01 30 05 57 69 64 74 |Placemen|t.0.Widt|
|000009f0| 68 03 33 30 30 06 48 65 | 69 67 68 74 03 33 30 30 |h.300.He|ight.300|
|00000a00| 08 4d 69 6e 57 69 64 74 | 68 02 36 34 09 4d 69 6e |.MinWidt|h.64.Min|
|00000a10| 48 65 69 67 68 74 02 36 | 34 08 4d 61 78 57 69 64 |Height.6|4.MaxWid|
|00000a20| 74 68 05 33 32 30 30 30 | 09 4d 61 78 48 65 69 67 |th.32000|.MaxHeig|
|00000a30| 68 74 05 33 32 30 30 30 | 07 00 07 57 69 6e 64 6f |ht.32000|...Windo|
|00000a40| 77 31 98 01 06 41 70 70 | 6c 65 74 00 00 00 00 02 |w1...App|let.....|
|00000a50| 0f 45 6e 61 62 6c 65 4d | 65 6e 75 49 74 65 6d 73 |.EnableM|enuItems|
|00000a60| 01 19 01 19 03 15 53 75 | 62 20 45 6e 61 62 6c 65 |......Su|b Enable|
|00000a70| 4d 65 6e 75 49 74 65 6d | 73 28 29 19 41 70 70 6c |MenuItem|s().Appl|
|00000a80| 65 41 62 6f 75 74 2e 65 | 6e 61 62 6c 65 64 20 3d |eAbout.e|nabled =|
|00000a90| 20 74 72 75 65 07 45 6e | 64 20 53 75 62 04 4f 70 | true.En|d Sub.Op|
|00000aa0| 65 6e 01 00 01 00 03 0a | 53 75 62 20 4f 70 65 6e |en......|Sub Open|
|00000ab0| 28 29 00 07 45 6e 64 20 | 53 75 62 01 0a 41 70 70 |()..End |Sub..App|
|00000ac0| 6c 65 41 62 6f 75 74 01 | 3a 01 3a 03 1a 46 75 6e |leAbout.|:.:..Fun|
|00000ad0| 63 74 69 6f 6e 20 41 63 | 74 69 6f 6e 20 41 73 20 |ction Ac|tion As |
|00000ae0| 42 6f 6f 6c 65 61 6e 3a | 6d 73 67 42 6f 78 20 22 |Boolean:|msgBox "|
|00000af0| 42 69 6e 61 72 79 20 54 | 72 65 65 20 44 65 6d 6f |Binary T|ree Demo|
|00000b00| 20 62 79 20 53 74 65 76 | 65 6e 20 42 72 6f 77 6e | by Stev|en Brown|
|00000b10| 20 28 73 67 62 40 77 61 | 76 65 2e 63 6f 2e 6e 7a | (sgb@wa|ve.co.nz|
|00000b20| 29 22 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 00 |)".End F|unction.|
|00000b30| 02 07 00 00 b8 03 07 4c | 69 73 74 62 6f 78 00 00 |.......L|istbox..|
|00000b40| 00 00 01 06 43 68 61 6e | 67 65 01 00 01 00 03 0c |....Chan|ge......|
|00000b50| 53 75 62 20 43 68 61 6e | 67 65 28 29 00 07 45 6e |Sub Chan|ge()..En|
|00000b60| 64 20 53 75 62 00 00 07 | 00 00 ac 01 0a 50 75 73 |d Sub...|.....Pus|
|00000b70| 68 42 75 74 74 6f 6e 00 | 00 00 00 01 06 41 63 74 |hButton.|.....Act|
|00000b80| 69 6f 6e 0a 0d 0a 0d 0c | 0c 53 75 62 20 41 63 74 |ion.....|.Sub Act|
|00000b90| 69 6f 6e 28 29 13 64 69 | 6d 20 74 72 65 65 20 61 |ion().di|m tree a|
|00000ba0| 73 20 42 69 6e 54 72 65 | 65 10 64 69 6d 20 69 20 |s BinTre|e.dim i |
|00000bb0| 61 73 20 69 6e 74 65 67 | 65 72 00 12 74 72 65 65 |as integ|er..tree|
|00000bc0| 20 3d 20 6e 65 77 20 42 | 69 6e 54 72 65 65 1f 66 | = new B|inTree.f|
|00000bd0| 6f 72 20 69 3d 30 20 74 | 6f 20 4c 69 73 74 42 6f |or i=0 t|o ListBo|
|00000be0| 78 31 2e 6c 69 73 74 63 | 6f 75 6e 74 2d 31 2c 69 |x1.listc|ount-1,i|
|00000bf0| 66 20 6e 6f 74 28 74 72 | 65 65 2e 69 6e 73 65 72 |f not(tr|ee.inser|
|00000c00| 74 28 6c 69 73 74 42 6f | 78 31 2e 6c 69 73 74 28 |t(listBo|x1.list(|
|00000c10| 69 29 2c 69 29 29 20 74 | 68 65 6e 12 6d 73 67 42 |i),i)) t|hen.msgB|
|00000c20| 6f 78 20 22 64 75 70 6c | 69 63 61 74 65 22 06 65 |ox "dupl|icate".e|
|00000c30| 6e 64 20 69 66 04 6e 65 | 78 74 0d 74 72 65 65 2e |nd if.ne|xt.tree.|
|00000c40| 74 72 61 76 65 72 73 65 | 07 45 6e 64 20 53 75 62 |traverse|.End Sub|
|00000c50| 00 00 02 07 4c 69 73 74 | 42 6f 78 1c 04 4e 61 6d |....List|Box..Nam|
|00000c60| 65 08 4c 69 73 74 42 6f | 78 31 05 49 6e 64 65 78 |e.ListBo|x1.Index|
|00000c70| 0b 2d 32 31 34 37 34 38 | 33 36 34 38 0d 54 61 62 |.-214748|3648.Tab|
|00000c80| 50 61 6e 65 6c 49 6e 64 | 65 78 01 30 07 56 69 73 |PanelInd|ex.0.Vis|
|00000c90| 69 62 6c 65 04 54 72 75 | 65 04 4c 65 66 74 02 31 |ible.Tru|e.Left.1|
|00000ca0| 33 03 54 6f 70 02 31 33 | 05 57 69 64 74 68 03 32 |3.Top.13|.Width.2|
|00000cb0| 30 31 06 48 65 69 67 68 | 74 03 32 37 34 0b 42 61 |01.Heigh|t.274.Ba|
|00000cc0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00000cd0| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00000ce0| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|00000cf0| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|00000d00| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|00000d10| 6b 42 6f 74 74 6f 6d 05 | 46 61 6c 73 65 08 54 65 |kBottom.|False.Te|
|00000d20| 78 74 46 6f 6e 74 06 53 | 79 73 74 65 6d 08 54 65 |xtFont.S|ystem.Te|
|00000d30| 78 74 53 69 7a 65 02 31 | 32 04 42 6f 6c 64 05 46 |xtSize.1|2.Bold.F|
|00000d40| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|00000d50| 65 09 55 6e 64 65 72 6c | 69 6e 65 05 46 61 6c 73 |e.Underl|ine.Fals|
|00000d60| 65 07 45 6e 61 62 6c 65 | 64 04 54 72 75 65 0b 43 |e.Enable|d.True.C|
|00000d70| 6f 6c 75 6d 6e 43 6f 75 | 6e 74 01 31 0c 43 6f 6c |olumnCou|nt.1.Col|
|00000d80| 75 6d 6e 57 69 64 74 68 | 73 00 0a 48 61 73 48 65 |umnWidth|s..HasHe|
|00000d90| 61 64 69 6e 67 05 46 61 | 6c 73 65 0c 55 73 65 46 |ading.Fa|lse.UseF|
|00000da0| 6f 63 75 73 52 69 6e 67 | 04 54 72 75 65 0c 49 6e |ocusRing|.True.In|
|00000db0| 69 74 69 61 6c 56 61 6c | 75 65 2b 4b 72 75 73 74 |itialVal|ue+Krust|
|00000dc0| 79 0d 4d 61 67 67 69 65 | 0d 42 61 72 6e 65 79 0d |y.Maggie|.Barney.|
|00000dd0| 4d 61 72 67 65 0d 4c 69 | 73 61 0d 48 6f 6d 65 72 |Marge.Li|sa.Homer|
|00000de0| 0d 42 61 72 74 0d 0c 48 | 69 65 72 61 72 63 68 69 |.Bart..H|ierarchi|
|00000df0| 63 61 6c 05 46 61 6c 73 | 65 0a 45 6e 61 62 6c 65 |cal.Fals|e.Enable|
|00000e00| 44 72 61 67 05 46 61 6c | 73 65 0d 53 65 6c 65 63 |Drag.Fal|se.Selec|
|00000e10| 74 69 6f 6e 54 79 70 65 | 01 30 00 0a 50 75 73 68 |tionType|.0..Push|
|00000e20| 42 75 74 74 6f 6e 17 04 | 4e 61 6d 65 0b 50 75 73 |Button..|Name.Pus|
|00000e30| 68 42 75 74 74 6f 6e 31 | 05 49 6e 64 65 78 0b 2d |hButton1|.Index.-|
|00000e40| 32 31 34 37 34 38 33 36 | 34 38 0d 54 61 62 50 61 |21474836|48.TabPa|
|00000e50| 6e 65 6c 49 6e 64 65 78 | 01 30 07 56 69 73 69 62 |nelIndex|.0.Visib|
|00000e60| 6c 65 04 54 72 75 65 04 | 4c 65 66 74 03 32 32 39 |le.True.|Left.229|
|00000e70| 03 54 6f 70 02 31 33 05 | 57 69 64 74 68 02 35 38 |.Top.13.|Width.58|
|00000e80| 06 48 65 69 67 68 74 02 | 32 30 0b 42 61 6c 6c 6f |.Height.|20.Ballo|
|00000e90| 6f 6e 48 65 6c 70 00 13 | 44 69 73 61 62 6c 65 64 |onHelp..|Disabled|
|00000ea0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 08 4c 6f 63 |BalloonH|elp..Loc|
|00000eb0| 6b 4c 65 66 74 05 46 61 | 6c 73 65 07 4c 6f 63 6b |kLeft.Fa|lse.Lock|
|00000ec0| 54 6f 70 05 46 61 6c 73 | 65 09 4c 6f 63 6b 52 69 |Top.Fals|e.LockRi|
|00000ed0| 67 68 74 05 46 61 6c 73 | 65 0a 4c 6f 63 6b 42 6f |ght.Fals|e.LockBo|
|00000ee0| 74 74 6f 6d 05 46 61 6c | 73 65 08 54 65 78 74 46 |ttom.Fal|se.TextF|
|00000ef0| 6f 6e 74 06 53 79 73 74 | 65 6d 08 54 65 78 74 53 |ont.Syst|em.TextS|
|00000f00| 69 7a 65 02 31 32 04 42 | 6f 6c 64 05 46 61 6c 73 |ize.12.B|old.Fals|
|00000f10| 65 06 49 74 61 6c 69 63 | 05 46 61 6c 73 65 09 55 |e.Italic|.False.U|
|00000f20| 6e 64 65 72 6c 69 6e 65 | 05 46 61 6c 73 65 07 43 |nderline|.False.C|
|00000f30| 61 70 74 69 6f 6e 04 54 | 65 73 74 07 44 65 66 61 |aption.T|est.Defa|
|00000f40| 75 6c 74 05 46 61 6c 73 | 65 06 43 61 6e 63 65 6c |ult.Fals|e.Cancel|
|00000f50| 05 46 61 6c 73 65 07 45 | 6e 61 62 6c 65 64 04 54 |.False.E|nabled.T|
|00000f60| 72 75 65 01 00 02 41 04 | 4d 65 6e 75 04 4d 65 6e |rue...A.|Menu.Men|
|00000f70| 75 05 a4 01 a4 01 90 06 | ac 04 04 01 00 00 80 80 |u.......|........|
|00000f80| 80 80 10 00 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |........|...<.Men|
|00000f90| 75 49 74 65 6d 00 00 00 | 00 00 00 00 02 00 12 41 |uItem...|.......A|
|00000fa0| 62 6f 75 74 20 54 68 69 | 73 20 44 65 6d 6f 2e 2e |bout Thi|s Demo..|
|00000fb0| 2e 0a 41 70 70 6c 65 41 | 62 6f 75 74 80 80 80 80 |..AppleA|bout....|
|00000fc0| 10 00 00 00 00 00 07 00 | 00 3c 08 4d 65 6e 75 49 |........|.<.MenuI|
|00000fd0| 74 65 6d 00 00 00 00 00 | 00 00 00 02 00 00 80 80 |tem.....|........|
|00000fe0| 80 80 10 00 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |........|...<.Men|
|00000ff0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 04 46 |uItem...|.......F|
|00001000| 69 6c 65 00 80 80 80 80 | 10 00 00 00 00 00 07 00 |ile.....|........|
|00001010| 00 3c 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |.<.MenuI|tem.....|
|00001020| 00 00 02 00 04 51 75 69 | 74 08 46 69 6c 65 51 75 |.....Qui|t.FileQu|
|00001030| 69 74 80 80 80 80 10 01 | 51 00 00 00 00 07 00 00 |it......|Q.......|
|00001040| 3c 0c 51 75 69 74 4d 65 | 6e 75 49 74 65 6d 00 00 |<.QuitMe|nuItem..|
|00001050| 00 00 00 00 00 00 02 00 | 00 80 80 80 80 10 00 00 |........|........|
|00001060| 00 00 00 07 00 00 3c 08 | 4d 65 6e 75 49 74 65 6d |......<.|MenuItem|
|00001070| 00 00 00 00 00 00 00 00 | 00 04 45 64 69 74 00 80 |........|..Edit..|
|00001080| 80 80 80 10 00 00 00 00 | 00 07 00 00 3c 08 4d 65 |........|....<.Me|
|00001090| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 07 00 04 |nuItem..|........|
|000010a0| 55 6e 64 6f 08 45 64 69 | 74 55 6e 64 6f 80 80 80 |Undo.Edi|tUndo...|
|000010b0| 80 10 01 5a 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |...Z....|...<.Men|
|000010c0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 01 2d |uItem...|.......-|
|000010d0| 00 80 80 80 80 10 00 00 | 00 00 00 07 00 00 3c 08 |........|......<.|
|000010e0| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|000010f0| 00 03 43 75 74 07 45 64 | 69 74 43 75 74 80 80 80 |..Cut.Ed|itCut...|
|00001100| 80 10 01 58 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |...X....|...<.Men|
|00001110| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 04 43 |uItem...|.......C|
|00001120| 6f 70 79 08 45 64 69 74 | 43 6f 70 79 80 80 80 80 |opy.Edit|Copy....|
|00001130| 10 01 43 00 00 00 00 07 | 00 00 3c 08 4d 65 6e 75 |..C.....|..<.Menu|
|00001140| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 05 50 61 |Item....|......Pa|
|00001150| 73 74 65 09 45 64 69 74 | 50 61 73 74 65 80 80 80 |ste.Edit|Paste...|
|00001160| 80 10 01 56 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |...V....|...<.Men|
|00001170| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 05 43 |uItem...|.......C|
|00001180| 6c 65 61 72 09 45 64 69 | 74 43 6c 65 61 72 80 80 |lear.Edi|tClear..|
|00001190| 80 80 10 00 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |........|...<.Men|
|000011a0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 02 00 00 |uItem...|........|
|000011b0| 80 80 80 80 10 00 00 00 | 00 00 07 00 00 3c 08 4d |........|.....<.M|
|000011c0| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 00 02 |enuItem.|........|
|000011d0| 00 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 3c |........|.......<|
|000011e0| 08 4d 65 6e 75 49 74 65 | 6d 00 00 00 00 00 00 00 |.MenuIte|m.......|
|000011f0| 00 03 41 05 43 6c 61 73 | 73 07 42 69 6e 54 72 65 |..A.Clas|s.BinTre|
|00001200| 65 8b 01 2b be 06 9c 07 | 07 00 07 42 69 6e 54 72 |e..+....|...BinTr|
|00001210| 65 65 14 00 00 01 13 72 | 6f 6f 74 20 61 73 20 42 |ee.....r|oot as B|
|00001220| 69 6e 54 72 65 65 4e 6f | 64 65 01 02 06 69 6e 73 |inTreeNo|de...ins|
|00001230| 65 72 74 1f 4b 65 79 20 | 61 73 20 53 74 72 69 6e |ert.Key |as Strin|
|00001240| 67 2c 20 49 6e 64 65 78 | 20 61 73 20 49 6e 74 65 |g, Index| as Inte|
|00001250| 67 65 72 07 42 6f 6f 6c | 65 61 6e 00 08 06 08 06 |ger.Bool|ean.....|
|00001260| 0a 3b 46 75 6e 63 74 69 | 6f 6e 20 69 6e 73 65 72 |.;Functi|on inser|
|00001270| 74 28 4b 65 79 20 61 73 | 20 53 74 72 69 6e 67 2c |t(Key as| String,|
|00001280| 20 49 6e 64 65 78 20 61 | 73 20 49 6e 74 65 67 65 | Index a|s Intege|
|00001290| 72 29 20 41 73 20 42 6f | 6f 6c 65 61 6e 15 69 66 |r) As Bo|olean.if|
|000012a0| 20 6d 65 2e 72 6f 6f 74 | 20 3d 20 6e 69 6c 20 74 | me.root| = nil t|
|000012b0| 68 65 6e 19 6d 65 2e 72 | 6f 6f 74 20 3d 20 6e 65 |hen.me.r|oot = ne|
|000012c0| 77 20 42 69 6e 54 72 65 | 65 4e 6f 64 65 11 6d 65 |w BinTre|eNode.me|
|000012d0| 2e 72 6f 6f 74 2e 4b 65 | 79 20 3d 20 4b 65 79 15 |.root.Ke|y = Key.|
|000012e0| 6d 65 2e 72 6f 6f 74 2e | 49 6e 64 65 78 20 3d 20 |me.root.|Index = |
|000012f0| 49 6e 64 65 78 0b 72 65 | 74 75 72 6e 20 74 72 75 |Index.re|turn tru|
|00001300| 65 04 65 6c 73 65 20 72 | 65 74 75 72 6e 20 6d 65 |e.else r|eturn me|
|00001310| 2e 72 6f 6f 74 2e 69 6e | 73 65 72 74 28 4b 65 79 |.root.in|sert(Key|
|00001320| 2c 49 6e 64 65 78 29 06 | 65 6e 64 20 69 66 0c 45 |,Index).|end if.E|
|00001330| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 08 74 72 61 76 |nd Funct|ion.trav|
|00001340| 65 72 73 65 00 00 00 03 | 06 03 06 05 0e 53 75 62 |erse....|.....Sub|
|00001350| 20 74 72 61 76 65 72 73 | 65 28 29 16 69 66 20 6d | travers|e().if m|
|00001360| 65 2e 72 6f 6f 74 20 3c | 3e 20 6e 69 6c 20 74 68 |e.root <|> nil th|
|00001370| 65 6e 10 6d 65 2e 72 6f | 6f 74 2e 74 72 61 76 65 |en.me.ro|ot.trave|
|00001380| 72 73 65 06 65 6e 64 20 | 69 66 07 45 6e 64 20 53 |rse.end |if.End S|
|00001390| 75 62 00 00 00 00 00 04 | 41 05 43 6c 61 73 73 0b |ub......|A.Class.|
|000013a0| 42 69 6e 54 72 65 65 4e | 6f 64 65 8b 01 2b be 06 |BinTreeN|ode..+..|
|000013b0| 9c 07 07 00 0b 42 69 6e | 54 72 65 65 4e 6f 64 65 |.....Bin|TreeNode|
|000013c0| 20 00 00 04 13 6c 65 66 | 74 20 61 73 20 42 69 6e | ....lef|t as Bin|
|000013d0| 54 72 65 65 4e 6f 64 65 | 00 14 72 69 67 68 74 20 |TreeNode|..right |
|000013e0| 61 73 20 42 69 6e 54 72 | 65 65 4e 6f 64 65 00 0d |as BinTr|eeNode..|
|000013f0| 4b 65 79 20 61 73 20 53 | 74 72 69 6e 67 00 10 49 |Key as S|tring..I|
|00001400| 6e 64 65 78 20 61 73 20 | 49 6e 74 65 67 65 72 00 |ndex as |Integer.|
|00001410| 02 06 69 6e 73 65 72 74 | 1f 4b 65 79 20 61 73 20 |..insert|.Key as |
|00001420| 53 74 72 69 6e 67 2c 20 | 49 6e 64 65 78 20 61 73 |String, |Index as|
|00001430| 20 49 6e 74 65 67 65 72 | 07 42 6f 6f 6c 65 61 6e | Integer|.Boolean|
|00001440| 00 13 0f 13 0f 17 3b 46 | 75 6e 63 74 69 6f 6e 20 |......;F|unction |
|00001450| 69 6e 73 65 72 74 28 4b | 65 79 20 61 73 20 53 74 |insert(K|ey as St|
|00001460| 72 69 6e 67 2c 20 49 6e | 64 65 78 20 61 73 20 49 |ring, In|dex as I|
|00001470| 6e 74 65 67 65 72 29 20 | 41 73 20 42 6f 6f 6c 65 |nteger) |As Boole|
|00001480| 61 6e 29 69 66 20 4b 65 | 79 20 3d 20 6d 65 2e 6b |an)if Ke|y = me.k|
|00001490| 65 79 20 61 6e 64 20 49 | 6e 64 65 78 20 3d 20 6d |ey and I|ndex = m|
|000014a0| 65 2e 69 6e 64 65 78 20 | 74 68 65 6e 0c 72 65 74 |e.index |then.ret|
|000014b0| 75 72 6e 20 66 61 6c 73 | 65 18 65 6c 73 65 69 66 |urn fals|e.elseif|
|000014c0| 20 4b 65 79 20 3c 20 6d | 65 2e 6b 65 79 20 74 68 | Key < m|e.key th|
|000014d0| 65 6e 15 69 66 20 6d 65 | 2e 6c 65 66 74 20 3d 20 |en.if me|.left = |
|000014e0| 6e 69 6c 20 74 68 65 6e | 19 6d 65 2e 6c 65 66 74 |nil then|.me.left|
|000014f0| 20 3d 20 6e 65 77 20 42 | 69 6e 54 72 65 65 4e 6f | = new B|inTreeNo|
|00001500| 64 65 11 6d 65 2e 6c 65 | 66 74 2e 4b 65 79 20 3d |de.me.le|ft.Key =|
|00001510| 20 4b 65 79 15 6d 65 2e | 6c 65 66 74 2e 49 6e 64 | Key.me.|left.Ind|
|00001520| 65 78 20 3d 20 49 6e 64 | 65 78 0b 72 65 74 75 72 |ex = Ind|ex.retur|
|00001530| 6e 20 74 72 75 65 04 65 | 6c 73 65 20 72 65 74 75 |n true.e|lse retu|
|00001540| 72 6e 20 6d 65 2e 6c 65 | 66 74 2e 69 6e 73 65 72 |rn me.le|ft.inser|
|00001550| 74 28 4b 65 79 2c 49 6e | 64 65 78 29 06 65 6e 64 |t(Key,In|dex).end|
|00001560| 20 69 66 04 65 6c 73 65 | 16 69 66 20 6d 65 2e 72 | if.else|.if me.r|
|00001570| 69 67 68 74 20 3d 20 6e | 69 6c 20 74 68 65 6e 1a |ight = n|il then.|
|00001580| 6d 65 2e 72 69 67 68 74 | 20 3d 20 6e 65 77 20 42 |me.right| = new B|
|00001590| 69 6e 54 72 65 65 4e 6f | 64 65 12 6d 65 2e 72 69 |inTreeNo|de.me.ri|
|000015a0| 67 68 74 2e 4b 65 79 20 | 3d 20 4b 65 79 16 6d 65 |ght.Key |= Key.me|
|000015b0| 2e 72 69 67 68 74 2e 49 | 6e 64 65 78 20 3d 20 49 |.right.I|ndex = I|
|000015c0| 6e 64 65 78 0b 72 65 74 | 75 72 6e 20 74 72 75 65 |ndex.ret|urn true|
|000015d0| 04 65 6c 73 65 21 72 65 | 74 75 72 6e 20 6d 65 2e |.else!re|turn me.|
|000015e0| 72 69 67 68 74 2e 69 6e | 73 65 72 74 28 4b 65 79 |right.in|sert(Key|
|000015f0| 2c 49 6e 64 65 78 29 06 | 65 6e 64 20 69 66 06 65 |,Index).|end if.e|
|00001600| 6e 64 20 69 66 0c 45 6e | 64 20 46 75 6e 63 74 69 |nd if.En|d Functi|
|00001610| 6f 6e 08 74 72 61 76 65 | 72 73 65 00 00 00 04 30 |on.trave|rse....0|
|00001620| 04 30 09 0e 53 75 62 20 | 74 72 61 76 65 72 73 65 |.0..Sub |traverse|
|00001630| 28 29 16 69 66 20 6d 65 | 2e 6c 65 66 74 20 3c 3e |().if me|.left <>|
|00001640| 20 6e 69 6c 20 74 68 65 | 6e 10 6d 65 2e 6c 65 66 | nil the|n.me.lef|
|00001650| 74 2e 74 72 61 76 65 72 | 73 65 06 65 6e 64 20 69 |t.traver|se.end i|
|00001660| 66 31 6d 73 67 42 6f 78 | 20 6d 65 2e 4b 65 79 20 |f1msgBox| me.Key |
|00001670| 2b 20 22 20 69 73 20 69 | 6e 20 72 6f 77 20 22 20 |+ " is i|n row " |
|00001680| 2b 20 73 74 72 28 6d 65 | 2e 69 6e 64 65 78 20 2b |+ str(me|.index +|
|00001690| 20 31 29 17 69 66 20 6d | 65 2e 72 69 67 68 74 20 | 1).if m|e.right |
|000016a0| 3c 3e 20 6e 69 6c 20 74 | 68 65 6e 11 6d 65 2e 72 |<> nil t|hen.me.r|
|000016b0| 69 67 68 74 2e 74 72 61 | 76 65 72 73 65 06 65 6e |ight.tra|verse.en|
|000016c0| 64 20 69 66 07 45 6e 64 | 20 53 75 62 00 00 00 00 |d if.End| Sub....|
|000016d0| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+